-- background: 13235 from stack: in.4
-- bmap block id: 23901
-- flags: 4000
-- background id: 0
-- name: Map
----- HyperTalk script -----
on copyright
  -- THESE SCRIPTS ARE COPYRIGHTED BY MAC HELP COMPANY
  -- CONTACT AUTHOR FOR PERMISSION TO USE THESE SCRIPTS
end copyright

on "CopyButtonToHome"

  set userlevel to 5
  get the userlevel
  if it < 5 then exit CopyButtonToHome
  put the name of this stack into StackName
  delete word 1 of stackName
  delete char 1 of stackName
  delete last char of stackName
  set the name of card button ID 16 to stackName

  choose button tool
  click at the loc of card button stackName
  doMenu "Copy Button"
  push card
  go home
  doMenu "Paste Button"
  set the style of card button stackName to transparent
  set the loc of card button stackName to 354,294
  choose browse tool

  pop card

end "CopyButtonToHome"


-- part 4 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=55 top=209 right=327 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Bank SUB ACCOUNTS
----- HyperTalk script -----
on mouseUp
  go to card "Rpt."
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=31 top=113 right=231 bottom=208
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Bank Account ACTIVITY
----- HyperTalk script -----
on mouseUp
  go to card 2 of background "a"
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=11 top=19 right=137 bottom=188
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Bank Accounting
----- HyperTalk script -----
on mouseUp
  if the optionKey is down then
    put "This will take you to the main card where you enter all" && "of your transactions, as well as where you can set up accounts" && "and sub accounts.  You can view your current account balances" && "here as well." into String
    put the name of the target into ThisItem
    HelpMsg1 String, ThisItem
    exit mouseUp
  end if

  go to card "a" of background "a"
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=270 top=209 right=327 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Income DAILY ACTIVITY
----- HyperTalk script -----
on mouseUp
  Global LastID

  if the optionKey is down then
    put "This will take you to the individual transaction cards" && "of the of your dataBase activity." into String
    put the name of the target into ThisItem
    HelpMsg1 String, ThisItem
    exit mouseUp
  end if

  put empty into LastID
  go to card "Main" of background "Income Record"

end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=242 top=113 right=231 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Income DATA BASE
----- HyperTalk script -----
on mouseUp
  Global ShortGivingDate

  if the optionKey is down then
    put "This will take you to the database part of the program." && " The database operates separately from the program in that it" && "uses the same sub accounts, but it keeps track of them" && "separately from the banking transactions.  Go to the sub" && "account cards to view activity for any sub accounts." into String
    put the name of the target into ThisItem
    HelpMsg1 String, ThisItem
    exit mouseUp
  end if

  go to card "Main" of background "Income"
  set the name of background button ID 139 to ShortGivingDate

end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=461 top=44 right=75 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 14767 / 14767
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tell
----- HyperTalk script -----
on mouseUp
  Global RegMessage, DoMessage, VersionMessage, BackinAFlash

  put False into BackinAFlash


  if the shiftKey is down and the commandKey is down then
    beep
    set cursor to 4
    push card
    set lockscreen to true
    go to card "RegCard"
    put empty into card field "Check Address"
    set the style of card field "Check Address" to transparent
    show background field "Message"
    beep
    pop card
    Go Home
    exit mouseUp
  end if

  if VersionMessage contains "Demo" then
    answer VersionMessage & Return & "See where to Register or Continue?" & Return & Return & "This program is copyrighted by Mac Help Company, 1988.  All Rights Reserved." with "Continue" or "See"

    if it is "See" then
      answer RegMessage with "Good Deal"
    end if
  else
    answer VersionMessage & Return & Return & "This program is copyrighted by Mac Help Company, 1988." && " All Rights Reserved." with "OK"
  end if

end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=353 top=41 right=82 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 1011 / 1011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go home
----- HyperTalk script -----
on mouseUp
  Global BackinAFlash

  put False into BackinAFlash
  visual effect iris close to black
  if the commandKey is down then
    doMenu "Quit HyperCard"
  else
    go home
  end if
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=414 top=45 right=76 bottom=451
-- title width / last selected line: 0
-- icon id / first selected line: 21060 / 21060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Directions
----- HyperTalk script -----
on mouseUp
  Global HelpCardName

  show card field "Blank Pop"
  show card button "Help"
  show card button "Cancel"

  put empty into HelpCardName

end mouseUp